perm filename SCALX.SCR[SCR,MUS] blob
sn#434120 filedate 1979-04-18 generic text, type T, neo UTF8
NPTIX←150;
FUNC FUN; < F1, F2, F3, F4, F5, F6
COMMON TOOT TOOT CLAR BRIT BUZZ;
COMMON REVRB;
< SCALX.SCR -- RANDOM NUMBER= 1
PLAY;
REVRB 0.000 10.000
;PRINT P1;< REVRB 1
CLAR 0.000 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C GS E A/2 G FS*2 DS/2 C*2
;PRINT P1;< CLAR 2
CLAR 0.100 0.100 GS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C A*2 E C*4 G GS*2 GS*2
;PRINT P1;< CLAR 3
CLAR 0.200 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C DS*2 E B G DS D/2
;PRINT P1;< CLAR 4
CLAR 0.300 0.100 B 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C E E FS G AS*2 E
;PRINT P1;< CLAR 5
CLAR 0.400 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C D E FS*2 G AS/2 F/2
;PRINT P1;< CLAR 6
CLAR 0.500 0.100 AS/2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C CS E F G FS*2 CS
;PRINT P1;< CLAR 7
CLAR 0.600 0.100 CS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C GS/2 E G G D*2 B/2
;PRINT P1;< CLAR 8
CLAR 0.700 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C D/2 E B/2 G C AS
;PRINT P1;< CLAR 9
CLAR 0.800 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C FS*2 E FS G DS G*2
;PRINT P1;< CLAR 10
CLAR 0.900 0.100 FS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C AS/2 E G/2 G DS GS
;PRINT P1;< CLAR 11
CLAR 1.000 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C G*2 E FS G F A*2
;PRINT P1;< CLAR 12
CLAR 1.100 0.100 FS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C D E C G C*2 DS/2
;PRINT P1;< CLAR 13
CLAR 1.200 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C B E C*2 G E GS/2
;PRINT P1;< CLAR 14
CLAR 1.300 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C G E C*2 G C AS*2
;PRINT P1;< CLAR 15
CLAR 1.400 0.100 AS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C B/2 E C G GS F*2
;PRINT P1;< CLAR 16
CLAR 1.500 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C D E B/2 G B FS*2
;PRINT P1;< CLAR 17
CLAR 1.600 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C F E DS G FS*2 D
;PRINT P1;< CLAR 18
CLAR 1.700 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C AS/2 E G G D*2
;PRINT P1;< CLAR 19
CLAR 1.800 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C FS/2 E DS G FS F*2
;PRINT P1;< CLAR 20
CLAR 1.900 0.100 DS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C C E AS/2 G G C*2
;PRINT P1;< CLAR 21
CLAR 2.000 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C GS/2 E CS*2 G G/2 F*2
;PRINT P1;< CLAR 22
CLAR 2.100 0.100 G/2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C CS*2 E AS G GS C
;PRINT P1;< CLAR 23
CLAR 2.200 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C B E E*2 G CS*2 CS*2
;PRINT P1;< CLAR 24
CLAR 2.300 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C DS E AS/2 G A
;PRINT P1;< CLAR 25
CLAR 2.400 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C C E GS/2 G DS E
;PRINT P1;< CLAR 26
CLAR 2.500 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C GS E DS*2 G AS AS
;PRINT P1;< CLAR 27
CLAR 2.600 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C AS/2 E C*2 G AS/2 F*2
;PRINT P1;< CLAR 28
CLAR 2.700 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C D*2 E B G CS*2 B
;PRINT P1;< CLAR 29
CLAR 2.800 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C D E AS/2 G G GS
;PRINT P1;< CLAR 30
CLAR 2.900 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C CS*2 E F G FS F*2
;PRINT P1;< CLAR 31
CLAR 3.000 0.100 F*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C CS E D G A E*2
;PRINT P1;< CLAR 32
CLAR 3.100 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C DS E DS G CS*2 C
;PRINT P1;< CLAR 33
CLAR 3.200 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C AS E C*2 G D*2 D*2
;PRINT P1;< CLAR 34
CLAR 3.300 0.100 AS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C FS E E G C GS
;PRINT P1;< CLAR 35
CLAR 3.400 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C F E C G AS C*2
;PRINT P1;< CLAR 36
CLAR 3.500 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C C E B G DS D
;PRINT P1;< CLAR 37
CLAR 3.600 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C D E FS G DS*2 AS
;PRINT P1;< CLAR 38
CLAR 3.700 0.100 DS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C E E CS G AS C*2
;PRINT P1;< CLAR 39
CLAR 3.800 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C CS E C G F FS
;PRINT P1;< CLAR 40
CLAR 3.900 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C F E A G A AS
;PRINT P1;< CLAR 41
CLAR 4.000 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C B/2 E G G CS*2
;PRINT P1;< CLAR 42
CLAR 4.100 0.100 B/2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C DS E D G A B
;PRINT P1;< CLAR 43
CLAR 4.200 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C B/2 E G G CS*2
;PRINT P1;< CLAR 44
CLAR 4.300 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C E E DS G B DS*2
;PRINT P1;< CLAR 45
CLAR 4.400 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C F E FS G FS D*2
;PRINT P1;< CLAR 46
CLAR 4.500 0.100 FS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C B/2 E G G CS*2 DS*2
;PRINT P1;< CLAR 47
CLAR 4.600 0.100 DS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C G E FS G AS A
;PRINT P1;< CLAR 48
CLAR 4.700 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C C E FS G C*2 B
;PRINT P1;< CLAR 49
CLAR 4.800 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C DS E E G B DS*2
;PRINT P1;< CLAR 50
CLAR 4.900 0.100 DS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C F E F G GS G
;PRINT P1;< CLAR 51
CLAR 5.000 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C E E F G AS CS*2
;PRINT P1;< CLAR 52
CLAR 5.100 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C DS E F G AS F
;PRINT P1;< CLAR 53
CLAR 5.200 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C F E F G B CS*2
;PRINT P1;< CLAR 54
CLAR 5.300 0.100 B 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C E E F G G
;PRINT P1;< CLAR 55
CLAR 5.400 0.100 CS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C C E F G B
;PRINT P1;< CLAR 56
CLAR 5.500 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C DS E F G GS C*2
;PRINT P1;< CLAR 57
CLAR 5.600 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C E E F G A G
;PRINT P1;< CLAR 58
CLAR 5.700 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C DS E F G A AS
;PRINT P1;< CLAR 59
CLAR 5.800 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C CS E F G AS B
;PRINT P1;< CLAR 60
CLAR 5.900 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C D E F G A
;PRINT P1;< CLAR 61
CLAR 6.000 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C D E F G A A
;PRINT P1;< CLAR 62
CLAR 6.100 0.100 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000
;PRINT P1;< CLAR 63
CLAR 6.200 0.100 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C D E F G A CS*2
;PRINT P1;< CLAR 64
CLAR 6.300 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000 0.000 0.000
0.000 0.000 C D E F G A B
;PRINT P1;< CLAR 65
CLAR 6.400 0.100 C
;PRINT P1;< CLAR 66
CLAR 6.500 0.100 D 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C D E F G A AS
;PRINT P1;< CLAR 67
CLAR 6.600 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000
;PRINT P1;< CLAR 68
CLAR 6.700 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000
;PRINT P1;< CLAR 69
CLAR 6.800 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000
;PRINT P1;< CLAR 70
CLAR 6.900 0.100 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C D E F G A C*2
;PRINT P1;< CLAR 71
CLAR 7.000 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 0.000 0.000
0.000 0.000 C D E F G A B
;PRINT P1;< CLAR 72
CLAR 7.100 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000
;PRINT P1;< CLAR 73
CLAR 7.200 0.100 C
;PRINT P1;< CLAR 74
CLAR 7.300 0.100 D 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000
;PRINT P1;< CLAR 75
CLAR 7.400 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000
;PRINT P1;< CLAR 76
CLAR 7.500 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000
;PRINT P1;< CLAR 77
CLAR 7.600 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000
;PRINT P1;< CLAR 78
CLAR 7.700 0.100 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000
;PRINT P1;< CLAR 79
CLAR 7.800 0.100 B
;PRINT P1;< CLAR 80
CLAR 7.900 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000
;PRINT P1;< CLAR 81
CLAR 8.000 0.100 C
;PRINT P1;< CLAR 82
CLAR 8.100 0.100 D 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000
;PRINT P1;< CLAR 83
CLAR 8.200 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000
;PRINT P1;< CLAR 84
CLAR 8.300 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000
;PRINT P1;< CLAR 85
CLAR 8.400 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000
;PRINT P1;< CLAR 86
CLAR 8.500 0.100 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000
;PRINT P1;< CLAR 87
CLAR 8.600 0.100 B
;PRINT P1;< CLAR 88
CLAR 8.700 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 3.000
;PRINT P1;< CLAR 89
FINISH; < SCALX.SCR